-- card: 25567 from stack: in.07 Reference
-- bmap block id: 0
-- flags: 0000
-- background id: 13647
-- name: 


-- part 1 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=330 top=218 right=240 bottom=414
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Setaccess
----- HyperTalk script -----
on mouseUp
  go to card id 25718
end mouseUp




-- part 2 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=373 top=291 right=313 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Files
----- HyperTalk script -----
on mouseUp
  go to card id 25043
end mouseUp




-- part contents for background part 2
----- text -----
File

-- part contents for background part 1
----- text -----
The class File contains attributes common to all fileclasses. Identifiers in upper case letters are not accessible to the user program.

class file(FILENAME); value FILENAME; text FILENAME;
begin
      Boolean OPEN; ! true if the file is open ;

      text procedure Filename; Filename:-copy(FILENAME);

      Boolean procedure Isopen:=OPEN;

      Boolean procedure Setaccess(mode) text mode ; ......;

      if filename==Notext then 
            error("...");
end --- File --- ;